home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XMOVEBG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-03  |  642 b   |  33 lines
  1. {$IBoDecl}
  2. {$IScreen}
  3. {$IPutStr}
  4. {$ICopies}
  5. {$IBoxul}
  6. {$ISetAtt}
  7. {$IMoveBg}
  8.  
  9.  
  10. BEGIN
  11.  
  12.    Mark ( HeapTop );
  13.    New ( page[1] );
  14.    ClrScr;
  15.    Boxul ( 20, 8, 37, 16, 1, 14);
  16.    for i := 9 to 15 do
  17.       PutStr ( h, Copies ( '▓',16),21, i, 14);
  18.    SetAtt ( 38, 9, 40, 17, 30);
  19.    SetAtt ( 21, 17, 40, 17, 30);
  20.    Read;
  21.    SaveScreen ( page[1] );
  22.    Boxul ( 20, 8, 37, 16, 1, 14);
  23.    for i := 9 to 15 do
  24.       PutStr ( h, Copies('▒',16),21, i, 7);
  25.    Read;
  26.    for i := 1 to 16 do
  27.    begin
  28.       Movebg ( page[1], 20+(i-1)*2, 8, 40+(i-1)*2, 17, 22+(i-1)*2, 8 );
  29.       delay(04);
  30.    end;
  31.    Release( HeapTop );
  32.  
  33. END.